﻿Module mensaje
    Private provenit As Integer
    Private provenombre As String
    Private provedireccion As String
    Private provee_mail As String
    Private provecontacto As String
    Private provenum_telefono As String

    Public Sub setprovenit(ByVal nit As Integer)
        provenit = nit
    End Sub
    Public Sub setprovenombre(ByVal nombre As Integer)
        provenombre = nombre
    End Sub
    Public Sub setprovedireccion(ByVal direccion As Integer)
        provedireccion = direccion
    End Sub
    Public Sub setprovee_mail(ByVal e_mail As Integer)
        provee_mail = e_mail
    End Sub
    Public Sub setprovecontacto(ByVal contacto As Integer)
        provecontacto = contacto
    End Sub
    Public Sub setprovenum_telefono(ByVal telefono As Integer)
        provenum_telefono = telefono
    End Sub


    Public Sub registrar(ByVal nit As Integer, ByVal nombre As String, ByVal direccion As String, ByVal e_mail As String, ByVal contacto As String, ByVal telefono As Integer)
        If nit = provenit And nombre = provenombre And direccion = provedireccion And e_mail = provee_mail And contacto = provecontacto And telefono = provenum_telefono Then
            MsgBox("esta suguro de registrar", MsgBoxStyle.OkOnly, "registrado")
        End If
    End Sub
End Module
